home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / TRACE.FAS < prev    next >
Text File  |  1994-02-05  |  9KB  |  142 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (TRACE UNTRACE *TRACE-FUNCTION* *TRACE-ARGS* *TRACE-FORM* *TRACE-VALUES*)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4 #11Y(00 00 00 00 00 01 D5 30 5B 19 01)
  8.    (SPECIAL *TRACE-FUNCTION* *TRACE-ARGS* *TRACE-FORM* *TRACE-VALUES*)
  9.   )
  10. #Y(#:TOP-LEVEL-FORM-5 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  11.    (SPECIAL *TRACED-FUNCTIONS*) *TRACED-FUNCTIONS*
  12.   )
  13. #Y(#:TOP-LEVEL-FORM-6 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 D7 30 53 C1 19 01)
  14.    (SPECIAL *TRACE-LEVEL*) *TRACE-LEVEL* 0.
  15.   )
  16. #Y(#:TOP-LEVEL-FORM-7 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) TRACE
  17.    REMOVE-OLD-DEFINITIONS MACRO
  18.    #Y(TRACE
  19.       #58Y(01 00 01 00 00 08 91 02 8F 00 05 D6 5F A9 1A 1D C0 19 04 A7 2E 03 1A 0E 90 00 98 1F 76
  20.            A7 84 02 72 95 03 99 36 00 14 80 02 16 01 7F 00 98 20 68 16 01 A7 30 A3 16 01 58 19 04
  21.           )
  22.       *TRACED-FUNCTIONS* APPEND FUNCTION-NAME-P TRACE1
  23.   )  )
  24. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRACE1
  25.    REMOVE-OLD-DEFINITIONS
  26.    #Y(TRACE1
  27.       #512Y(01 00 00 00 80 1C 09 00 00 00 3C 09 3C 08 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 37
  28.             01 6E 82 37 01 6E 82 B3 85 09 81 79 A4 1F 81 7A E2 E3 E1 04 0F 57 74 77 02 5C 02 14 77
  29.             02 E4 5F E5 E6 AB 77 02 E7 E8 E9 E1 BC 77 02 77 04 03 15 78 03 EB EC AC 77 02 E7 ED EE
  30.             E1 BD 77 02 77 04 03 1A 78 03 F0 AE F1 AE 77 02 77 02 AE F2 B1 77 02 77 02 77 02 E5 F3
  31.             B1 F4 B1 03 20 78 02 77 03 61 21 F4 B1 03 22 78 02 B3 77 03 61 23 E1 BF 77 02 03 24 78
  32.             02 77 04 61 25 60 61 26 B2 E1 62 19 77 02 77 05 61 27 F4 B1 03 28 78 02 E1 BF 77 02 B4
  33.             61 21 F4 B5 03 29 78 02 61 21 F1 B7 77 02 61 2A 62 1E 6B 2B 6C 2C 61 2D 61 2E 61 2F E4
  34.             5F E5 62 23 03 30 78 02 8E 1D 80 D5 00 14 8E 1C 80 DE 00 14 62 23 8E 22 80 E5 00 14 61
  35.             2E 61 34 61 32 61 35 62 2A 03 36 78 02 77 02 77 02 77 01 8E 24 80 D7 00 14 62 27 8E 23
  36.             80 DB 00 14 8E 25 80 E4 00 14 E5 62 2E 03 38 78 02 03 39 76 32 03 20 76 32 02 20 78 02
  37.             77 01 32 02 20 76 32 03 20 78 03 77 03 77 02 61 35 61 3A BC 77 02 61 3B AB 61 3C 61 3D
  38.             61 3E 61 3F 61 40 61 41 E1 62 2A 77 02 03 42 78 02 77 02 61 43 61 44 62 1D 77 02 77 02
  39.             77 05 9E 78 02 77 03 61 45 61 46 61 3B AE 61 3C 61 3D 61 3E 61 3F 61 47 61 43 61 48 61
  40.             44 62 21 77 02 77 02 77 02 77 05 A1 78 02 77 03 77 03 5C 04 16 01 F6 77 03 77 03 77 05
  41.             77 05 E1 BA 77 01 77 02 5C 06 19 0E DF E0 B5 5E 02 E1 A5 1A FE 8C 61 31 61 32 62 1F 77
  42.             02 77 02 5C 01 1A FF 1D 61 31 61 32 62 1E 77 02 77 02 5C 01 1A FF 14 EB 62 23 03 33 78
  43.             02 5C 01 1A FF 10 EB 62 25 03 37 78 02 5C 01 1A FF 1E 61 31 61 32 62 25 77 02 77 02 5C
  44.             01 1A FF 17 61 31 61 32 62 27 77 02 77 02 5C 01 1A FF 0E
  45.            )
  46.       :SUPPRESS-IF :STEP-IF :PRE :POST :PRE-BREAK-IF :POST-BREAK-IF :PRE-PRINT :POST-PRINT :PRINT
  47.       FUNCTION-NAME-P "~S: function name should be a symbol, not ~S" TRACE QUOTE LOAD-TIME-VALUE
  48.       GET-SETF-SYMBOL BLOCK UNLESS FBOUNDP WARN "~S: undefined function ~S" 'TRACE ((RETURN NIL))
  49.       WHEN SPECIAL-FORM-P "~S: cannot trace special form ~S" 'TRACE ((RETURN NIL)) LET*
  50.       SYMBOL-FUNCTION CONSP EQ GET ('TRACING-DEFINITION) SETF ('TRACED-DEFINITION) PUSHNEW
  51.       (*TRACED-FUNCTIONS* :TEST #'EQUAL) FORMAT "~&;; Tracing ~:[function~;macro~] ~S."
  52.       REPLACE-IN-FENV ('TRACED-DEFINITION) ('TRACING-DEFINITION) "TRACED-" GET-FUNNAME-SYMBOL
  53.       CONCAT-PNAMES (DECLARE (COMPILE) (INLINE CAR CDR CONS APPLY VALUES-LIST)) LET
  54.       ((*TRACE-LEVEL* (TRACE-LEVEL-INC))) ((TRACE-PRE-OUTPUT)) TRACE-PRINT MULTIPLE-VALUE-LIST
  55.       ((BREAK-LOOP T)) *TRACE-VALUES* IF ((TRACE-STEP-APPLY) (APPLY *TRACE-FUNCTION* *TRACE-ARGS*))
  56.       ((BREAK-LOOP T)) ((TRACE-POST-OUTPUT)) ((VALUES-LIST *TRACE-VALUES*)) NOT FUNCTION LAMBDA
  57.       &REST *TRACE-ARGS* &AUX *TRACE-FORM* MAKE-APPLY-FORM (*TRACE-ARGS*) *TRACE-FUNCTION*
  58.       GET-TRACED-DEFINITION CONS 'MACRO (*TRACE-FORM* (CAR *TRACE-ARGS*)) CDR
  59.   )  )
  60. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REPLACE-IN-FENV
  61.    REMOVE-OLD-DEFINITIONS
  62.    #Y(REPLACE-IN-FENV
  63.       #68Y(04 00 00 00 00 05 AB 8B 07 04 AB 8B 06 2C 00 19 05 14 6E 41 D6 1A 1B A9 A8 31 8A 5A 14
  64.            AE 89 FF 0B A9 99 5A 14 9E 22 04 AB AA 9A 5B D7 A8 7E 02 33 00 A7 A9 89 FE 60 00 19 08
  65.            AB D5 6E 27 8E 00 50 00 19 06
  66.           )
  67.       5. 1. 2.
  68.   )  )
  69. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRACE-LEVEL-INC
  70.    REMOVE-OLD-DEFINITIONS
  71.    #Y(TRACE-LEVEL-INC #13Y(00 00 00 00 00 01 D5 67 01 35 01 19 01) #.#'1+ *TRACE-LEVEL*)
  72.   )
  73. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-TRACED-DEFINITION
  74.    REMOVE-OLD-DEFINITIONS
  75.    #Y(GET-TRACED-DEFINITION #13Y(01 00 00 00 00 02 D5 A9 D6 35 02 19 02) #.#'GET TRACED-DEFINITION)
  76.   )
  77. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRACE-STEP-APPLY
  78.    REMOVE-OLD-DEFINITIONS
  79.    #Y(TRACE-STEP-APPLY
  80.       #32Y(00 00 00 00 00 01 D5 D6 D7 D8 67 04 00 58 76 D8 67 05 00 58 76 00 58 58 76 00 58 76 35
  81.            01 19 01
  82.           )
  83.       #.#'EVAL STEP APPLY QUOTE *TRACE-FUNCTION* *TRACE-ARGS*
  84.   )  )
  85. #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-APPLY-FORM
  86.    REMOVE-OLD-DEFINITIONS
  87.    #Y(MAKE-APPLY-FORM
  88.       #37Y(02 00 00 00 00 03 A9 5F AA 1A 0D 90 00 D5 A8 00 58 76 80 02 16 01 7F 00 98 20 70 16 01
  89.            A7 30 A3 16 01 58 19 03
  90.           )
  91.       QUOTE
  92.   )  )
  93. #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRACE-PRE-OUTPUT
  94.    REMOVE-OLD-DEFINITIONS
  95.    #Y(TRACE-PRE-OUTPUT
  96.       #38Y(00 00 00 00 00 01 D5 67 01 35 01 D7 67 03 D9 67 01 DA DB DC 60 35 07 DD DE 67 01 35 02
  97.            DF 67 0B 67 01 35 02 19 01
  98.           )
  99.       #.#'TERPRI *TRACE-OUTPUT* #.#'WRITE *TRACE-LEVEL* :STREAM :BASE 10. :RADIX #.#'WRITE-STRING
  100.       " Trace: " #.#'PRIN1 *TRACE-FORM*
  101.   )  )
  102. #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRACE-POST-OUTPUT
  103.    REMOVE-OLD-DEFINITIONS
  104.    #Y(TRACE-POST-OUTPUT
  105.       #51Y(00 00 00 00 00 01 D5 67 01 35 01 D7 67 03 D9 67 01 DA DB DC 60 35 07 DD DE 67 01 35 02
  106.            DF 0E 0B 74 D9 67 01 35 03 E1 E2 67 01 35 02 67 0E 5F 2F 0F 19 01
  107.           )
  108.       #.#'TERPRI *TRACE-OUTPUT* #.#'WRITE *TRACE-LEVEL* :STREAM :BASE 10. :RADIX #.#'WRITE-STRING
  109.       " Trace: " #.#'WRITE *TRACE-FORM* #.#'WRITE-STRING " ==> " *TRACE-VALUES* TRACE-PRINT
  110.   )  )
  111. #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) TRACE-PRINT
  112.    REMOVE-OLD-DEFINITIONS
  113.    #Y(TRACE-PRINT
  114.       #52Y(01 00 01 00 00 08 3A 01 07 7A 01 8F 01 0A 1A 03 8F 01 05 D5 67 01 35 01 9A 1F 16 1A 06
  115.            D8 D9 67 01 35 02 90 02 D7 A8 67 01 35 02 16 01 7F 02 20 6C 00 19 03
  116.           )
  117.       #.#'TERPRI *TRACE-OUTPUT* #.#'PRIN1 #.#'WRITE-STRING ", "
  118.   )  )
  119. #Y(#:TOP-LEVEL-FORM-17 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) UNTRACE
  120.    REMOVE-OLD-DEFINITIONS MACRO
  121.    #Y(UNTRACE #25Y(01 00 01 00 00 08 91 02 D5 D6 8F 02 09 D8 AA 5C 02 14 5C 03 19 04 C2 1A 78)
  122.       MAPCAN #'UNTRACE1 (COPY-LIST *TRACED-FUNCTIONS*) QUOTE
  123.   )  )
  124. #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNTRACE1
  125.    REMOVE-OLD-DEFINITIONS
  126.    #Y(UNTRACE1
  127.       #76Y(01 00 00 00 00 02 A8 85 00 14 A8 6B 03 A7 D9 37 01 6E 76 8E 00 1C 00 14 AB 2E 09 15 19
  128.            04 D6 D7 AA 5E 02 A7 AB 9B 59 14 AA 2C 04 06 A8 A8 31 74 1A 15 A8 89 51 0B 99 59 14 A9
  129.            DA 37 01 31 76 21 62 DC D7 AC 2C 03 08 AA 5C 01 1A 4B
  130.           )
  131.       FUNCTION-NAME-P "~S: function name should be a symbol, not ~S" UNTRACE GET-FUNNAME-SYMBOL
  132.       TRACED-DEFINITION TRACING-DEFINITION REPLACE-IN-FENV
  133.       "~S: ~S was traced and has been redefined!" WARN UNTRACE2
  134.   )  )
  135. #Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNTRACE2
  136.    REMOVE-OLD-DEFINITIONS
  137.    #Y(UNTRACE2
  138.       #32Y(01 00 00 00 00 02 A8 6B 00 A7 D6 31 7B A7 D7 31 7B 16 01 A8 67 03 37 07 C4 F8 31 4B 0F
  139.            03 19 02
  140.           )
  141.       GET-FUNNAME-SYMBOL TRACED-DEFINITION TRACING-DEFINITION *TRACED-FUNCTIONS* #.#'EQUAL
  142.   )  )